www.gusucode.com > 良精ASP微博管理系统 V1.0 > 良精ASP微博管理系统 V1.0\code\isay.asp
<!--#include file="Include/LiangjingConn.asp"-->
<!--#include file="Include/Function.asp"-->
<!--#include file="Include/header.asp"-->
</div>
<%Response.Write("<div id=""headRound"" class=""clear""><span class=""left""></span><span class=""right""></span></div>")%>
<div id="mainWrapper" class="clear" style="min-height:260px;background:#C9F1FF;);">
<div class="wording">
</div>
<div class="loginBox">
<%
page = Request("page") '分页
S_Havving = Request("S_Havving") '搜索条件
if page = "" then
page = 1
end if
%>
<table width="<%=Web_TPageWidth%>" height="20" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="20" class="ptttd1"></td>
</tr>
<tr>
<td height="25" class="ptttd1">推荐评论</td>
</tr>
</table>
<table width="<%=Web_TPageWidth%>" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top">
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="1" background="Images/dot.jpg"></td>
</tr>
<tr>
<td height="5"></td>
</tr>
</table>
<%
Set Rs = Server.CreateObject("Adodb.recordset")
Sql = "SELECT Liangjing_SrcRevert.*, Liangjing_source.Src_WebName,Liangjing_source.Src_AddDate,Liangjing_source.Src_ID, Liangjing_source.Src_UserID, Liangjing_source.Src_GGDesc, Liangjing_User.User_ID, Liangjing_User.User_CoolName, Liangjing_User.User_Photo " & _
"FROM (Liangjing_source INNER JOIN Liangjing_SrcRevert ON Liangjing_source.Src_ID = Liangjing_SrcRevert.Re_SrcID) INNER JOIN Liangjing_User ON Liangjing_SrcRevert.Re_UserID = Liangjing_User.User_ID Where 1=1 "
if S_Havving <> "" then '搜索条件
Sql = Sql & " and Src_WebName like '%"& S_Havving &"%' or Re_Content like '%" & S_Havving & "%'"
end if
Sql = Sql & " Order By Re_ID Desc"
'response.Write(sql)
'response.End()
Rs.Open Sql,conn,1,2
if not Rs.eof then
rs.pagesize = 10
rs.absolutepage = page
else
Response.Write("<table width='98%' border='0' align='center' cellpadding='0' cellspacing='3'>")
Response.Write("<tr><td width='100%' height='25' rowspan='2' valign='top'>呵呵...没有找到您想找的评论哦！</td></tr>")
Response.Write("<table>")
end if
c_j = 0
While Not Rs.eof and c_j < rs.pagesize
c_j = c_j + 1
%>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="5">
<tr>
<td width="48" valign="top">
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#e1e1e1">
<tr>
<td bgcolor="#FFFFFF"><img src="<% =Rs("User_Photo") %>" width="48" height="48" align="left" /></td>
</tr>
</table>
</td>
<td valign="top">
<%
Response.Write("<span class='pl'><a href='My.asp?User_ID="&Rs("User_ID")&"' target='_blank'>"&Server.HTMLEncode(Rs("User_CoolName"))&"</a> </span>")
Response.Write("<span class='green'>在"&Rs("Re_AddTime")&"对</span>")
Response.Write("<a href='SrcShow.asp?Src_ID="&Rs("Src_ID")&"' target='_blank'>"&Rs("Src_WebName")&"</a> 评价道:</span><br />")
Re_Desc = Server.HTMLEncode(Rs("Re_Content"))
Re_Desc = Replace(Re_Desc,chr(10),"<br>")
Response.Write(Re_Desc)
%></td>
</tr>
</table>
<div style="height:20px;"></div>
<table width="98%" height="1" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td background="Images/dot.jpg"></td>
</tr>
</table>
<%
Rs.MoveNext
Wend
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<form name="frm_Page_2" action="isay.asp" mathod="post">
<td align="right">
<%
if cint(page) <= 1 then
Response.Write("上一页 ")
Response.Write("<a href='isay.asp?S_Havving="&S_Havving&"&Page="&Page+1&"'>下一页</a>")
elseif cint(page) >= Rs.pageCount then
Response.Write("<a href='isay.asp?S_Havving="&S_Havving&"&Page="&Page-1&"'>上一页</a> ")
Response.Write("下一页")
else
Response.Write("<a href='isay.asp?S_Havving="&S_Havving&"&Page="&Page-1&"'>上一页</a> ")
Response.Write("<a href='isay.asp?S_Havving="&S_Havving&"&Page="&Page+1&"'>下一页</a>")
end if
Response.Write(" <Select name='Page' onchange='javascript:frm_Page_2.submit();'>")
for i_page_2 = 1 to Rs.PageCount
Selected = ""
if cstr(page) = cstr(i_page_2) then Selected = " Selected"
Response.Write("<option value='"&i_page_2&"'" & Selected & ">"&i_page_2&"</option>")
next
Response.Write("</Select>")
Response.Write("<input type='hidden' name='S_Havving' value='"&S_Havving&"'/>")
Response.Write(" (<strong>"&page&"</strong> / <strong>"&Rs.PageCount&"</strong>)")
%>
</td>
</form>
</tr>
</table>
</td>
<td width="1" valign="top" bgcolor="#E1E1E1">
</td>
<td width="<%=Web_RightWidth%>" valign="top"><table width="90%" height="100" border="0" align="center" cellpadding="0" cellspacing="1" >
<tr>
<td>
<%=WoDig.leftMyconfig()%>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="3">
<form action="iSay.asp" method="post" name="frm_data">
<tr>
<td height="25" colspan="2" align="center" class="attn"><div>搜索评论</div></td>
</tr>
<tr>
<td height="25">
<div align="center">
<input type="text" name="S_Havving" style="width:180px;a" value="<%=S_Havving%>" onclick="this.select();"/>
</div></td>
<td> <input type="submit" name="Submit2" value="评论搜索" /></td>
</tr>
<tr colspan="2">
<td height="25"><% Call WoDig.Get_RevertState() %></td>
</tr>
</form>
</table>
</td>
</tr>
</table>
<br />
</td>
</tr>
</table>
<%
Rs.Close
Set Rs = nothing
%>
<br />
</div>
</div>
<%Response.Write("<div id=""footRound"" class=""clear""><span class=""left""></span><span class=""right""></span></div>"&vbcr)%>
<!--#include file="Include/footer.asp"-->